LABEL 000600000PRIMEK00175100CC EX OB JECT/REaU;F I lE SGURCLK I lE»SYMBUl/RE3Eq; END* 
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BEGIN 

%%% R 

COM 



ESEQ/CANDE SOURCE PROGRAM* 2-70. i.%% 
WENT? * TITLE.? .B.5.5Q.Q/B57Q0 &A.R* XIV S 

* FILE IDS SYMBGL/REStQ TAPE I 

* THIS MATERIAL IS PROPRIETARY 

*.. AND IS .. NOT -IJJ ftE R EP.BMW C.E.Q.' 

* EXCEPT IN ACCORDANCE hlTH PRO 

* WRITTEN AUTHORIZATION OF THE 
* aiiflHQJLL&HS CQEP.DRAI.LQ.Nji DtML 



Y.jj.TEM RELEASE *., 

US SYMBQL2/FILE000 * 
TO BURROUGHS CORPORATION * 

USE Da UR D.i SOLUS LC *_ 

GRAM LiCEiNiSE OR UPON * 

PATENT DIVISION OF * 
T, MICHIGAN 46232 *.. 
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FILE 
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LABEL 

REAL 

INCR, 

PC, 

***** 

REAL 



* COP 

* A A 

common; 
array errco 
jn srcif.il 
out outfil 



YRIGHT 
3202C6 



CO 1971* 1972 BURR 
AA332366 AA3866 



M3»A,NC0»30J»b,PARAMSC0*l 

DISK SERIA L ( 2*0*0); 
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DISK 
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RESEG, 
REC* N 

RCESEO* 

******* 

STREAM PROCEDURE H 



OUT NEWTAB 
AN 8RAAK, 
READSRCE» 
BASE* ENOI 
LINE* L 1 
PREVSEQ* SI 

***********! 



SERIAL C20J60U] (2, 

SERIAL [20J30 3 (2* 

SFLG# MAKTAB, WR 



CT/ NPTR* OUTSE 

STRTRESEQ* USER; 
******************* 

DR(F*N>; VALUE Hi 



10»30Q*SAvE 1)1 

3o»3O0'Save n; 

KFIL* OKJ __ 



****************************************** 



BEGIN 

si :*f; 3CSU3.SI 

SU«f; 14(SI:*SI 

si»«f; ncsi » wsi 

jSHD..iIBEAM_PRO£E 



•8); DIJ=LQC ¥ ;„U5.:.= W_pS 

+ 8); DP=LOC F; DStaNOS 

+8); dijsldc hdr; DS»»k 

.DURE.. HQR1 



*************************** 



*************************** 



ds; 



******************* 



PROCEDU 
_VAkii£_l 



RE DISKk 
»AiSl RE 



AIT( 
AJL_J. 



******************* 

PROCEDURE TWXOUTCA* 

******************* 

VALUE N'T; 

REAL A#N#T; 

BEGIN COMMUNICA 
BR A A K » « "BOOUE AN* 

end; 

******************* 

.--^ .._.__„. _0 .„ .. £__. „ ._._ 

******************* 



*********************** 

I»A*S»D)i 

*S*Dj ARRAY AC*3; CQM MUN 1 C AT L C - 8 ) ; 

*********************** 
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*********************** 
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REAL 
B 

IF ._(. 

INPC 
END. 

__*.****** 
STREAM 
BEG I 

.Jl****** 



N REAL SjE_Oi_ 
STREAM PRQC 

egin si i*x; 

SEQf A BS(I NC 

qnv«*seq; 

PROCEDURE IN 
************ 

PROCED 

N Sit* 

****** 



*********************** 

qnv'cxTT real"~x1 

*********************** 



BREAK OCCURRED, 
********************** 
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********00012300 
00012400 

********0Q012500 
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loc n; 

****** 



STREAM 
BEGI 

******* 

STREAM 

******* 
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PROCKD 
N SI I 
****** 
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****** 

N LQCA 



URE MO 

a; on 

****** 

URE MA 

****** 
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EDURE INCONVCX); 
DI:*L0C INCONV; DStaaOC 

onvcx))) 6tr 99999999 t 

pccnv; 

* *.*..**_* * ****** **** ****** 

TCCNV(A*N); VALUE Hi 

di:»a; osjaaOEc; end; 

*** ******** ****** ****** 



*************************** 



t; end; 

H£N 5 Ett:*999999 99; 



** *•* ************ *_** * ****** 



******* ******** ****** * ***** 



wecn*a»0); value n; 
■b; os:=n wos; enuj 
*********************** 
kerrcerr#ni#n2>; value 

*********************** 



*********** ****** _*_****. * * * * * 

ni#n2; 

*************************** 
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DU?.SV; D I l.sni.*flJL_Cii.?=2LU! !..-.-/ 

sv »*di ; sii*loc n2; dsjsbdec; dijssv; dsi«?fill; 

END STREAM PROCEDURE MaKERRI 

.%*.*** ********* **. ****.*.** **..*_* .****.* .**.*.* *.**.*. .**..** * * * * **_*_*.* * * * *,.* ********* 

PROCEDURE ERR0RCN1*N2); VALUE N1/N2; REAL Nl*N2, 

X****************************************************************** 

...BEGIN ....._ 

MAKERR(ERR*N1»N2); TWXOUT (ERR 1 ] * 33, 1 ); 
END PROCIOURE ERROR! 
. %** *.*.*.*.* * *._*.**..*..*_** *..*.* * * * *i.t..tlt±tJ.A*.** **_*,*..*.*, *.*_.* * * .* * * * * .*.*. *.*. * *** ******* 

ACO]»=o; DI5KWAIT(1#A»30*C0MM0N); % GET ESP RECORD 

USER 8= AC2]; 

flU-TX ON.V C-LI NE* AI 11 *.U : 8J .11 Z -OECXRA L L i N t NUMBER _. _ 

WRKFit l» AC9J.C6J12] * "jS"; 

IF MAKTAB {a (WRKFIL AND A C 1 ] . C 311 J * 0) THEN X TAB FILE REQUIRED 

F I L L N EW T A B hi T H " " L&." 1 T "1 6 ; 30 s 1 2 UklN E [ 1 8 * 3 s 1 BJ £ U1EF 1 

FILL SRCEFIL WITH A [ 3 } , A[4j; 

FILL OUTFIL WITH A[9I> USER* X OUTPUT FILE NA*E 

B£5£fl . «=.. TflUEJ _ _ 

STRTRESEQt*A[53; X LOWER BOUND FOR RESEQUENCE 

ENDRESEQ »«At6]; X UPPER BOUND FOR RESEQUENCE 

1 MR laA 1 8 J ; X RESEQUENCE IMMHENI 

BASE »-AC 7 ] - INCR; % RESEQ BASt 

READ SEEKCSRCEFILC03); PREVSEQ :* NfT i* -l; 

SfLQ := IF. AC 11*1.6 ;.1J = 1 .1 ..HEN .AUlUilll?Q . 

ELSE HDR(SRCEFIL»4),C36J6] NEG 8; 

X 

.REA.DSBCE 1 ... 
X 

READ (SRCEFIL* 10,BC * ] ) [ EOF ] / 

LREC ...t?... LBEC +....ii _ .._ _ 

SRCESEQ »= IF SFLG THEN I NPCONV ( BC9 ] 3 El_SE lREC* 
OuTSEQ«*IF MAKTAB AND NOT SFLG THEN lNPCONVC B 1 9 j ) 

.IF. RESEQ. THEN % .RESEQ UEN.CE THE F..LL£ 

OK OR SRCESEQ GEG STRTRESEQ ThEN 
RESEQ«aOK*=SRCESEQ LEQ EnDRESEQ THEN % RECORD** mRE 

BEGIN 

OUTSEQ S* BASE Is BA SE + iNCRi * CALCULATE NE* SEQ. nUmB 
OUTCONV(BC93»OUTSEG); X MOVE NUMBER TO SEQUENCE FIELD 

EN.DJ.: 

OUTSEQ LEQ PREVSEG THEN % OUT OF SEQUENCE 

BFGIN 

IF NOT B_RAAJ1 THEN ERRQR( PREVSEQ#UyT_3EQ > J 

2; ~ " " 



IF 
IF 



else srceseu; 
in range 

ER 



IF 



X ADJUST SEQUENCE 



% TELL 
N UM BER 



THE USER 



OUTSEQ i» PREVSE« + 

0UTC0NV(B[9]»0UTSEG>' 

END/ 

PREVSEQ »= OUTSeq; 
IF MAKTAB THEN 
BEGIN _ 

IF NPTR :* NPTR ♦ 1 6fR 29 THEN * SEGMENT IS BILLED 
BEGIN 

.. WRITE(NEWT_AB J »3_g_ t NL*IJJ __ __!_ _' 

NPTRtsd; 

eno; 
n^n p t r ]_ j ■ _0_4_ n_c t_[4 » 3 2j1 6 1 

" ENDTT IF r ~MAKTA8 " 
WRITE(0UTFIL*10#BC*]); 
GO T O READSBtCEJ 
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OOfll 5800- 
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00020100 
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0Q020300 



% • • t t 

EOFJ 

IF MA 
BE 
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KTAB THEN 
GIN 

NPTR»sNPTR+l GTR 29 THEN 

BEGIN 

write(newtab*30»n[*] ); 

nptr:=o;_ _ 

end; 

NtNPTRJ«=»l00000000;; 

W R HE C NEWT AB#3Q *N[»]); 

READ(NEWTABCbl#30*Nt*]); 

n[0]5*nct; * eof pointer 

write(newta b[0 3,3 ,n[*3); 

lockcnewtab**); 

end; 

clq se is rc ef i l ) i l q£ kxc u.i e xl *. *j i - 

end program, 

eno;end. LAST CARD ON ochuing TAPE 

GETB.UFFER.5CBLEN*.NtiUEbxUjALP-JdAJ>l 
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